home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00299.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  444 b   |  18 lines
  1. on exitFrame
  2.   global advance, ppl, foes
  3.   if (advance = 13) or (advance = 14) then
  4.     foes4(getAt(foes, 1), getAt(ppl, 2))
  5.     foes4(getAt(foes, 2), getAt(ppl, 3))
  6.   else
  7.     if advance = 15 then
  8.       foes4(getAt(foes, 3), getAt(ppl, 4))
  9.     else
  10.       if (advance = 16) or (advance = 17) then
  11.         foes4(getAt(foes, 2), getAt(ppl, 3))
  12.         foes4(getAt(foes, 3), getAt(ppl, 4))
  13.       end if
  14.     end if
  15.   end if
  16.   go(marker(0) + 1)
  17. end
  18.